Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Bombardier_PC/BSCRIPTS.CST/00120_Script_120

Text File | 1999-04-25 | 2KB | 44 lines

-- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
-- Developed for Bombardier, Inc.
--
-- All programming developed by:
-- Robert Fabricant, Valerie Valoueva, Ossi Shaked,
-- Henry Sauvageot, Chris Howell & Chris Girand
--
-- Use of this code by parties other than @radical.media, inc. or their
--agents
-- without the express written consent of @radical.media, inc. AND Concurrent
-- New Media Group, L.L.C. is strictly prohibited.
------------------------------------------------------


on exitFrame
  global gSelct,gImage, gRtrnPln,gTourCast,NumOfQTVRMenuItems, menuController,gQTVRmenuEnabled

  set qtvrPlaneSprNum = getSpriteNumFromMemberName("qtvranchor")+1
  set range = NumOfQTVRMenuItems - 1
  set spriteCastNum = the castnum of sprite qtvrPlaneSprNum
  set gRtrnPln="EXT"

  --select the exterior button

  if gSelct<> qtvrPlaneSprNum+range then
    set gSelct = qtvrPlaneSprNum+range
    set gImage = the castnum of sprite gSelct
    set the castnum of sprite qtvrPlaneSprNum+range to gImage+2*range
  end if

  --  set up QTVR menu with cockpit selected
  repeat with i=qtvrPlaneSprNum to qtvrPlaneSprNum+range
    puppetSprite i, true
  end repeat
  deselect menuController
  sendSprite (103,#mouseEnter) --as if mouse rolled over "cockpit" menu item
  set gQTVRmenuEnabled = TRUE
  sendsprite(103,#mouseUp) --as if mouse clicked on "cockpit" menu item
  sendsprite(103,#resetRolledOver) --as if mouse rolled off "cockpit" menu item
  repeat with i=qtvrPlaneSprNum to qtvrPlaneSprNum+range
    set the visible of sprite i to true
  end repeat

end